home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
FindNextNew.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
915b
|
30 lines
/*
$VER: FindNextNew.zprx 1.3 (31.1.94) by Ralph Seichter
ARexx script for Zodiac's Point 3.7.
This script jumps into the board list and locates the
next board containing new messages (if any) and then
moves into this board. I suggest you to bind this script
to an F-Key, e.g. by adding the entry
F1:SYS:Rexxc/RX ZP:Rexx/FindNextNew.zprx %s
to your "fkeys.zp" file.
*/
PARSE ARG zpPort /* Get ARexx port name */
ADDRESS VALUE zpPort /* and address this port. */
OPTIONS RESULTS /* We expect results. */
whichlevel /* Where are we? */
IF (RESULT ~= "BOARDMENU") THEN
boardmenu /* Step into board menu. */
jumptonew down /* Find next board below with new messages. */
IF (RC) THEN /* RC = 1 only if such a board B is found. */
enterboard /* Step into board B. */
ELSE
requestnotify 'No more new messages!'
/* EOF */